www.gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\manuAddSave.asp

    <!-- #include file = "include/sysbase.asp" -->
<%
	   dim cmbObj, rsObj
       Set cmbObj  =  Server.CreateObject("ADODB.Command")
       Set rsObj  =  Server.CreateObject("ADODB.RecordSet")
       cmbObj.CommandText  =  "SELECT * FROM ProductType WHERE (id is null)"
       cmbObj.CommandType  =  adCmdText
       Set cmbObj.ActiveConnection  =  conn
       rsObj.Open cmbObj, , adOpenKeyset, adLockOptimistic
       rsObj.AddNew 
       rsObj("name")  =  Request.Form("name")
       rsObj("SuperID")  =  Request.Form("SuperID")
       rsObj.Update

       rsObj.Close
       set rsObj = nothing
       CloseConn()
%>
<script language = Javascript>
<!--
	alert("添加成功！");
	this.document.location = "manuList.asp";
-->
</script>